0 PRINT"[147]"TAB(12)"UNDIVIDED PRIMES"
1 REM ==================================
2 REM    COMMODARES PROBLEM #58-1 :
3 REM       UNDIVIDED PRIMES
4 REM    SOLUTION BY
5 REM       PAUL CORTEZ
6 REM ==================================
10 DIMX%(15000):FORI=3TO30001STEP2:Z=Z+1:IFX%(Z-1)=0THENPRINTI-2:IFI=3THENPRINT2
20 Q=Q+1+A+A+A:A=AOR(I>4997):T=Q:FORJ=15000TOI+ISTEP-I:T=T+I:X%(T)=1:NEXTJ,I